home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Notes / 5. Generated Tonalities < prev    next >
Lisp/Scheme  |  1998-10-26  |  641b  |  20 lines
  1. Software Generated Tonalities
  2.  
  3. Not only can symbol melody create zone length patterns, it can 
  4. initiate tonality itself. In file STRUCT2, an invention for 
  5. solo keyboard, a hopalong generator outputs a symbol pattern 
  6. for each hand and an interval scheme for its tonality. 
  7.  
  8. (gen-hopalong-symbol xmel (a g) ymel (a g) 100 200 300 0.45 32 0)
  9.  
  10. (setq mel1 (find-change xmel))
  11. (setq mel2 (find-change ymel))
  12.  
  13. (gen-hopalong-vector tonx tony 100 200 300 0.45 7 0) 
  14.  
  15. (create-tonality scale1 (vector-to-list (vector-round 1 12 tonx)))
  16. ; -> (10 6 4 12 7 1 12)
  17. (create-tonality scale2 (vector-to-list (vector-round 1 12 tony)))
  18. ; ->(8 3 7 9 1 6 12) 
  19.  
  20.